(ps-mule-begin-job): Programming uniformization.

diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 49dac6b89fb538a0bcd48d2990009d4acca52357..c2a7e8867bccac3d5251c97129fb1d215e21f646 100644 (file)
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -1083,8 +1083,8 @@ This checks if all multi-byte characters in the region are printable or not."
        ;; Initialize `ps-mule-charset-list'.  If some characters aren't
        ;; printable, warn it.
        (let ((charsets (find-charset-region from to)))
-        (setq charsets (delq 'ascii (delq 'unknown (delq nil charsets))))
-        (setq ps-mule-charset-list charsets)
+        (setq charsets (delq 'ascii (delq 'unknown (delq nil charsets)))
+              ps-mule-charset-list charsets)
         (save-excursion
           (goto-char from)
           (and (search-forward "\200" to t)